Interactive Media Design Review 1999/Interactive Media Design Review 1999.iso/pc/allfiles/Centri/Centri.dir/00289_Shrink.ls

Text File | 1999-02-25 | 1.2 KB | 24 lines

property origSprite, csprite1, csprite2, csprite3

on mouseUp me
  set the stretch of sprite origSprite to 1
  set the stretch of sprite csprite1 to 1
  set the stretch of sprite csprite2 to 1
  set the stretch of sprite csprite3 to 1
  set the width of sprite origSprite to the width of sprite origSprite / 1.19999999999999996
  set the width of sprite csprite1 to the width of sprite csprite3
  set the width of sprite csprite2 to the width of sprite csprite3
  set the width of sprite csprite3 to the width of sprite csprite3 / 1.19999999999999996
  set the height of sprite origSprite to the height of sprite origSprite / 1.19999999999999996
  set the height of sprite csprite1 to the width of sprite csprite3
  set the height of sprite csprite2 to the width of sprite csprite3
  set the height of sprite csprite3 to the width of sprite csprite3
  updateStage()
  puppetSound(2, "click")
end

on getPropertyDescriptionList
  set p_list to [#origSprite: [#comment: "  Screen 1:", #format: #integer, #default: 1], #csprite1: [#comment: " Control Sprite 1:", #format: #integer, #default: 1], #csprite2: [#comment: " Control Sprite 2:", #format: #integer, #default: 2], #csprite3: [#comment: " Control Sprite 3:", #format: #integer, #default: 3]]
  return p_list
end